program tstkind
  integer,parameter :: dbl=selected_real_kind(14,200)
	real(kind=dbl) :: a, b
	a = 1_dbl
	b = 1_dbl
	print *, a
	a = a + dexp(b**2)
	print *, a
	a = a + exp(b);
	print *, a
	stop
end program
